MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 01 - 1984 & 1985 / 01.10 Sep 84.sit / 01.10 Sep 84 / asm MDS Print Vol. 1 #10 / MDSPRINT.ASM next >
MacBinary | 1985-08-13 | 6.4 KB | [TEXT/MACA]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Aug 13 11:16:11 1985, modified Tue Aug 13 11:16:11 1985, creator MacWrite, type ASCII, 5870 bytes "MDSPRINT.ASM" , at 0x176e 490 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MACA]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 4d 44 53 50 52 49 | 4e 54 2e 41 53 4d 00 00 |..MDSPRI|NT.ASM..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 41 43 | 41 01 00 00 00 00 00 00 |.TEXTMAC|A.......|
|00000050| 00 00 00 00 00 16 ee 00 | 00 01 ea 99 85 21 bb 99 |........|.....!..|
|00000060| 85 21 bb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.!......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 40 df 00 00 |........|....@...|
|00000080| 3b 20 50 72 69 6e 74 20 | 22 68 65 6c 6c 6f 22 20 |; Print |"hello" |
|00000090| 6f 6e 20 74 68 65 20 70 | 72 69 6e 74 65 72 2e 0d |on the p|rinter..|
|000000a0| 3b 20 20 20 20 20 20 20 | 57 72 69 74 74 65 6e 20 |;       |Written |
|000000b0| 62 79 20 53 74 65 76 65 | 20 59 61 65 67 65 72 0d |by Steve| Yaeger.|
|000000c0| 3b 20 49 66 20 74 68 65 | 20 70 72 69 6e 74 65 72 |; If the| printer|
|000000d0| 20 69 73 20 6f 66 66 2d | 6c 69 6e 65 2c 20 74 68 | is off-|line, th|
|000000e0| 69 73 20 77 69 6c 6c 20 | 68 61 6e 67 20 74 68 65 |is will |hang the|
|000000f0| 20 4d 61 63 0d 3b 20 20 | 20 20 20 20 20 75 6e 74 | Mac.;  |     unt|
|00000100| 69 6c 20 69 74 20 69 73 | 20 70 75 74 20 62 61 63 |il it is| put bac|
|00000110| 6b 20 6f 6e 20 6c 69 6e | 65 0d 3b 20 49 66 20 74 |k on lin|e.; If t|
|00000120| 68 65 72 65 20 69 73 20 | 6e 6f 20 50 72 69 6e 74 |here is |no Print|
|00000130| 64 72 69 76 65 72 20 66 | 69 6c 65 20 69 74 20 6a |driver f|ile it j|
|00000140| 75 73 74 20 42 65 65 70 | 73 20 61 6e 64 20 65 78 |ust Beep|s and ex|
|00000150| 69 74 73 0d 3b 0d 3b 20 | 54 68 65 20 4c 69 6e 6b |its.;.; |The Link|
|00000160| 65 72 20 66 69 6c 65 20 | 6c 6f 6f 6b 73 20 6c 69 |er file |looks li|
|00000170| 6b 65 20 74 68 69 73 0d | 3b 0d 3b 20 20 20 20 20 |ke this.|;.;     |
|00000180| 20 20 48 45 4c 4c 4f 2e | 52 45 4c 0d 3b 20 20 20 |  HELLO.|REL.;   |
|00000190| 20 20 20 20 5d 0d 3b 0d | 3b 20 54 68 65 73 65 20 |    ].;.|; These |
|000001a0| 61 72 65 20 74 68 65 20 | 45 71 75 61 74 65 73 20 |are the |Equates |
|000001b0| 4e 6f 74 69 63 65 20 74 | 68 61 74 20 74 68 65 20 |Notice t|hat the |
|000001c0| 69 50 72 52 65 73 65 74 | 2c 20 69 50 72 4c 69 6e |iPrReset|, iPrLin|
|000001d0| 65 46 65 65 64 2c 20 0d | 3b 20 61 6e 64 20 20 69 |eFeed, .|; and  i|
|000001e0| 50 72 50 61 67 65 45 6e | 64 20 61 72 65 20 4c 6f |PrPageEn|d are Lo|
|000001f0| 6e 67 77 6f 72 64 73 20 | 61 6e 64 20 6e 6f 74 20 |ngwords |and not |
|00000200| 77 6f 72 64 73 20 61 73 | 20 69 6e 20 0d 3b 20 50 |words as| in .; P|
|00000210| 52 45 51 55 2e 54 58 54 | 20 66 72 6f 6d 20 43 6f |REQU.TXT| from Co|
|00000220| 75 6e 73 75 6c 61 69 72 | 2e 0d 0d 09 58 52 45 46 |unsulair|....XREF|
|00000230| 09 53 54 41 52 54 0d 0d | 3b 20 54 68 65 73 65 20 |.START..|; These |
|00000240| 61 72 65 20 74 68 65 20 | 50 72 44 72 76 72 20 63 |are the |PrDrvr c|
|00000250| 6f 6e 73 74 61 6e 74 73 | 2e 0d 20 0d 69 50 72 44 |onstants|.. .iPrD|
|00000260| 72 76 72 52 65 66 20 20 | 09 45 51 55 20 20 20 20 |rvrRef  |.EQU    |
|00000270| 20 09 24 46 46 46 44 20 | 09 3b 20 44 72 69 76 65 | .$FFFD |.; Drive|
|00000280| 72 27 73 20 52 65 66 4e | 75 6d 20 3d 20 4e 4f 54 |r's RefN|um = NOT|
|00000290| 20 52 65 73 49 44 0d 69 | 50 72 49 4f 43 74 6c 20 | ResID.i|PrIOCtl |
|000002a0| 20 20 20 20 09 45 51 55 | 20 20 20 20 20 09 35 20 |    .EQU|     .5 |
|000002b0| 20 20 20 20 20 09 3b 20 | 54 68 65 20 52 61 77 20 |     .; |The Raw |
|000002c0| 42 79 74 65 20 49 4f 20 | 50 72 6f 63 27 73 20 63 |Byte IO |Proc's c|
|000002d0| 74 6c 20 23 20 0d 69 50 | 72 44 65 76 43 74 6c 20 |tl # .iP|rDevCtl |
|000002e0| 20 20 20 20 09 45 51 55 | 20 20 20 20 20 09 37 20 |    .EQU|     .7 |
|000002f0| 20 20 20 20 20 20 20 3b | 20 54 68 65 20 50 72 44 |       ;| The PrD|
|00000300| 65 76 43 74 6c 20 50 72 | 6f 63 27 73 20 63 74 6c |evCtl Pr|oc's ctl|
|00000310| 20 20 23 20 0d 69 50 72 | 52 65 73 65 74 20 20 20 |  # .iPr|Reset   |
|00000320| 20 20 20 09 45 51 55 20 | 20 20 20 20 09 24 30 30 |   .EQU |    .$00|
|00000330| 30 31 30 30 30 30 20 09 | 3b 20 54 68 65 20 43 50 |010000 .|; The CP|
|00000340| 61 72 61 6d 20 66 6f 72 | 20 72 65 73 0d 69 50 72 |aram for| res.iPr|
|00000350| 50 61 67 65 45 6e 64 09 | 09 45 51 55 20 20 20 20 |PageEnd.|.EQU    |
|00000360| 20 09 24 30 30 30 32 30 | 30 30 30 09 3b 20 54 68 | .$00020|000.; Th|
|00000370| 65 20 43 50 61 72 61 6d | 20 66 6f 72 20 65 6e 64 |e CParam| for end|
|00000380| 0d 69 50 72 4c 69 6e 65 | 46 65 65 64 09 09 45 51 |.iPrLine|Feed..EQ|
|00000390| 55 20 20 20 20 20 09 24 | 30 30 30 33 30 30 30 30 |U     .$|00030000|
|000003a0| 20 09 3b 20 54 68 65 20 | 43 50 61 72 61 6d 20 66 | .; The |CParam f|
|000003b0| 6f 72 20 70 61 70 20 0d | 6c 50 61 72 61 6d 31 20 |or pap .|lParam1 |
|000003c0| 09 09 09 45 51 55 20 20 | 20 20 20 09 30 20 20 20 |...EQU  |   .0   |
|000003d0| 20 20 20 20 20 20 20 20 | 3b 20 74 68 65 20 74 68 |        |; the th|
|000003e0| 72 65 65 20 70 72 69 6e | 74 65 72 20 70 61 72 61 |ree prin|ter para|
|000003f0| 6d 65 74 65 72 73 0d 6c | 50 61 72 61 6d 32 20 09 |meters.l|Param2 .|
|00000400| 09 09 45 51 55 20 20 20 | 20 20 09 34 0d 6c 50 61 |..EQU   |  .4.lPa|
|00000410| 72 61 6d 33 09 09 09 45 | 51 55 20 20 20 20 20 09 |ram3...E|QU     .|
|00000420| 38 0d 0d 3b 20 54 68 65 | 73 65 20 61 72 65 20 74 |8..; The|se are t|
|00000430| 68 65 20 73 74 61 6e 64 | 61 72 64 20 63 61 6c 6c |he stand|ard call|
|00000440| 20 70 61 72 61 6d 65 74 | 65 72 73 0d 0d 63 73 43 | paramet|ers..csC|
|00000450| 6f 64 65 09 09 09 45 51 | 55 20 20 20 20 20 09 24 |ode...EQ|U     .$|
|00000460| 31 41 20 20 20 20 09 3b | 63 6f 6e 74 72 6f 6c 20 |1A    .;|control |
|00000470| 64 65 70 65 6e 64 65 6e | 74 20 63 6f 6d 6d 61 6e |dependen|t comman|
|00000480| 64 20 0d 63 73 50 61 72 | 61 6d 20 09 09 09 45 51 |d .csPar|am ...EQ|
|00000490| 55 20 20 20 20 20 09 24 | 31 43 20 20 20 20 20 20 |U     .$|1C      |
|000004a0| 3b 63 6f 6e 74 72 6f 6c | 20 64 65 70 65 6e 64 65 |;control| depende|
|000004b0| 6e 74 20 70 61 72 61 6d | 2e 0d 69 6f 43 6f 6d 70 |nt param|..ioComp|
|000004c0| 6c 65 74 69 6f 6e 20 20 | 09 45 51 55 20 20 20 20 |letion  |.EQU    |
|000004d0| 20 09 24 43 20 20 20 20 | 20 20 20 3b 70 6f 69 6e | .$C    |   ;poin|
|000004e0| 74 65 72 20 74 6f 20 61 | 73 79 6e 63 20 6e 6f 74 |ter to a|sync not|
|000004f0| 69 66 69 65 72 20 72 6f | 75 74 69 6e 65 0d 69 6f |ifier ro|utine.io|
|00000500| 52 65 73 75 6c 74 20 20 | 20 20 20 20 20 45 51 55 |Result  |     EQU|
|00000510| 20 20 20 20 20 09 24 31 | 30 20 20 20 20 20 09 3b |     .$1|0     .;|
|00000520| 72 65 74 75 72 6e 73 20 | 6f 70 65 72 61 74 69 6f |returns |operatio|
|00000530| 6e 20 72 65 73 75 6c 74 | 73 0d 69 6f 46 69 6c 65 |n result|s.ioFile|
|00000540| 4e 61 6d 65 09 09 45 51 | 55 20 20 20 20 20 09 24 |Name..EQ|U     .$|
|00000550| 31 32 20 20 20 20 20 20 | 3b 70 6f 69 6e 74 65 72 |12      |;pointer|
|00000560| 20 74 6f 20 6e 61 6d 65 | 20 6f 66 20 64 72 69 76 | to name| of driv|
|00000570| 65 72 0d 69 6f 52 65 66 | 4e 75 6d 20 20 09 09 45 |er.ioRef|Num  ..E|
|00000580| 51 55 20 20 20 20 20 09 | 24 31 38 20 20 20 20 20 |QU     .|$18     |
|00000590| 20 3b 64 72 69 76 65 72 | 20 72 65 66 65 72 65 6e | ;driver| referen|
|000005a0| 63 65 20 23 0d 69 6f 50 | 65 72 6d 73 73 6e 20 20 |ce #.ioP|ermssn  |
|000005b0| 09 09 45 51 55 20 20 20 | 20 20 09 24 31 42 20 09 |..EQU   |  .$1B .|
|000005c0| 09 3b 72 65 61 64 2f 77 | 72 69 74 65 20 70 65 72 |.;read/w|rite per|
|000005d0| 6d 69 73 73 69 6f 6e 0d | 0d 3b 20 54 72 61 70 73 |mission.|.; Traps|
|000005e0| 20 75 73 65 64 20 69 6e | 20 74 68 69 73 20 70 72 | used in| this pr|
|000005f0| 6f 67 72 61 6d 0d 0d 20 | 20 20 20 2e 54 52 41 50 |ogram.. |   .TRAP|
|00000600| 20 20 20 20 20 20 20 5f | 49 6e 69 74 47 72 61 66 |       _|InitGraf|
|00000610| 20 20 20 20 20 20 24 41 | 38 36 45 0d 20 20 20 20 |      $A|86E.    |
|00000620| 2e 54 52 41 50 20 20 20 | 20 20 20 20 5f 49 6e 69 |.TRAP   |    _Ini|
|00000630| 74 46 6f 6e 74 73 20 20 | 20 20 20 24 41 38 46 45 |tFonts  |   $A8FE|
|00000640| 0d 20 20 20 20 2e 54 52 | 41 50 20 20 20 20 20 20 |.    .TR|AP      |
|00000650| 20 5f 46 6c 75 73 68 45 | 76 65 6e 74 73 20 20 20 | _FlushE|vents   |
|00000660| 24 41 30 35 30 0d 20 20 | 20 20 2e 54 52 41 50 20 |$A050.  |  .TRAP |
|00000670| 20 20 20 20 20 20 5f 49 | 6e 69 74 57 69 6e 64 6f |      _I|nitWindo|
|00000680| 77 73 20 20 20 24 41 39 | 31 32 0d 20 20 20 20 2e |ws   $A9|12.    .|
|00000690| 54 52 41 50 20 20 20 20 | 20 20 20 5f 49 6e 69 74 |TRAP    |   _Init|
|000006a0| 4d 65 6e 75 73 20 20 20 | 20 20 24 41 39 33 30 0d |Menus   |  $A930.|
|000006b0| 20 20 20 20 2e 54 52 41 | 50 20 20 20 20 20 20 20 |    .TRA|P       |
|000006c0| 5f 49 6e 69 74 44 69 61 | 6c 6f 67 73 20 20 20 24 |_InitDia|logs   $|
|000006d0| 41 39 37 42 0d 20 20 20 | 20 2e 54 52 41 50 20 20 |A97B.   | .TRAP  |
|000006e0| 20 20 20 20 20 5f 49 6e | 69 74 43 75 72 73 6f 72 |     _In|itCursor|
|000006f0| 20 20 20 20 24 41 38 35 | 30 0d 20 20 20 20 2e 54 |    $A85|0.    .T|
|00000700| 52 41 50 20 20 20 20 20 | 20 20 5f 54 45 49 6e 69 |RAP     |  _TEIni|
|00000710| 74 20 20 20 20 20 20 20 | 20 24 41 39 43 43 0d 20 |t       | $A9CC. |
|00000720| 20 20 20 2e 54 52 41 50 | 20 20 20 20 20 20 20 5f |   .TRAP|       _|
|00000730| 4f 70 65 6e 20 20 20 20 | 20 20 20 20 20 20 24 41 |Open    |      $A|
|00000740| 30 30 30 0d 20 20 20 20 | 2e 54 52 41 50 20 20 20 |000.    |.TRAP   |
|00000750| 20 20 20 20 5f 43 6f 6e | 74 72 6f 6c 20 20 20 20 |    _Con|trol    |
|00000760| 20 20 20 24 41 30 30 34 | 0d 20 20 20 20 2e 54 52 |   $A004|.    .TR|
|00000770| 41 50 20 20 20 20 20 20 | 20 5f 53 79 73 42 65 65 |AP      | _SysBee|
|00000780| 70 20 20 20 20 20 20 20 | 24 41 39 43 38 0d 0d 53 |p       |$A9C8..S|
|00000790| 54 41 52 54 0d 0d 3b 49 | 6e 69 74 69 61 6c 69 7a |TART..;I|nitializ|
|000007a0| 65 20 4d 61 6e 61 67 65 | 72 73 0d 0d 50 45 41 20 |e Manage|rs..PEA |
|000007b0| 20 20 20 20 09 2d 34 28 | 41 35 29 20 20 20 20 20 |    .-4(|A5)     |
|000007c0| 20 20 20 20 20 09 3b 53 | 70 61 63 65 20 43 72 65 |     .;S|pace Cre|
|000007d0| 61 74 65 64 20 46 6f 72 | 20 51 75 69 63 6b 64 72 |ated For| Quickdr|
|000007e0| 61 77 27 73 20 55 73 65 | 0d 5f 49 6e 69 74 47 72 |aw's Use|._InitGr|
|000007f0| 61 66 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |af      |        |
|00000800| 20 09 3b 49 6e 69 74 20 | 51 75 69 63 6b 64 72 61 | .;Init |Quickdra|
|00000810| 77 0d 5f 49 6e 69 74 46 | 6f 6e 74 73 20 20 20 20 |w._InitF|onts    |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 09 3b 49 6e 69 74 |        |  .;Init|
|00000830| 20 74 68 65 20 46 6f 6e | 74 20 4d 61 6e 61 67 65 | the Fon|t Manage|
|00000840| 72 0d 0d 4d 4f 56 45 2e | 4c 20 20 09 23 24 30 30 |r..MOVE.|L  .#$00|
|00000850| 30 30 46 46 46 46 2c 44 | 30 20 20 20 09 3b 54 68 |00FFFF,D|0   .;Th|
|00000860| 69 73 20 4d 61 73 6b 20 | 49 73 20 46 6f 72 20 41 |is Mask |Is For A|
|00000870| 6c 6c 20 45 76 65 6e 74 | 73 0d 5f 46 6c 75 73 68 |ll Event|s._Flush|
|00000880| 45 76 65 6e 74 73 20 20 | 20 20 20 20 20 20 20 20 |Events  |        |
|00000890| 20 20 09 3b 46 6c 75 73 | 68 20 41 6c 6c 20 4f 66 |  .;Flus|h All Of|
|000008a0| 20 54 68 65 73 65 20 45 | 76 65 6e 74 73 0d 0d 5f | These E|vents.._|
|000008b0| 49 6e 69 74 57 69 6e 64 | 6f 77 73 20 20 20 20 20 |InitWind|ows     |
|000008c0| 20 20 20 20 20 20 20 09 | 3b 49 6e 69 74 20 74 68 |       .|;Init th|
|000008d0| 65 20 57 69 6e 64 6f 77 | 20 4d 61 6e 61 67 65 72 |e Window| Manager|
|000008e0| 0d 5f 49 6e 69 74 4d 65 | 6e 75 73 20 20 20 20 20 |._InitMe|nus     |
|000008f0| 20 20 20 20 20 20 20 20 | 20 09 3b 49 6e 69 74 20 |        | .;Init |
|00000900| 74 68 65 20 4d 65 6e 75 | 20 4d 61 6e 61 67 65 72 |the Menu| Manager|
|00000910| 0d 0d 43 4c 52 2e 4c 20 | 20 09 20 2d 28 53 50 29 |..CLR.L | . -(SP)|
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 09 3b 72 65 73 |        |   .;res|
|00000930| 74 61 72 74 20 70 72 6f | 63 65 64 75 72 65 0d 5f |tart pro|cedure._|
|00000940| 49 6e 69 74 44 69 61 6c | 6f 67 73 20 20 20 20 20 |InitDial|ogs     |
|00000950| 20 20 20 20 20 20 20 09 | 3b 49 6e 69 74 20 74 68 |       .|;Init th|
|00000960| 65 20 44 69 61 6c 6f 67 | 20 4d 61 6e 61 67 65 72 |e Dialog| Manager|
|00000970| 0d 0d 5f 49 6e 69 74 43 | 75 72 73 6f 72 20 20 20 |.._InitC|ursor   |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 09 3b 49 6e 69 74 |        |  .;Init|
|00000990| 20 74 6f 20 61 72 72 6f | 77 20 63 75 72 73 6f 72 | to arro|w cursor|
|000009a0| 0d 5f 54 45 49 6e 69 74 | 20 20 20 20 20 20 20 20 |._TEInit|        |
|000009b0| 20 20 20 20 20 20 20 20 | 20 09 3b 49 6e 69 74 20 |        | .;Init |
|000009c0| 54 65 78 74 20 45 64 69 | 74 0d 0d 3b 2d 2d 2d 2d |Text Edi|t..;----|
|000009d0| 2d 2d 2d 20 4f 50 45 4e | 20 54 48 45 20 50 52 49 |--- OPEN| THE PRI|
|000009e0| 4e 54 20 44 52 49 56 45 | 52 20 2d 2d 2d 2d 2d 2d |NT DRIVE|R ------|
|000009f0| 2d 0d 0d 4c 45 41 20 20 | 09 09 27 2e 50 72 69 6e |-..LEA  |..'.Prin|
|00000a00| 74 27 2c 41 31 20 20 20 | 20 09 09 3b 47 65 74 20 |t',A1   | ..;Get |
|00000a10| 61 20 50 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |a Pointe|r to the|
|00000a20| 20 44 72 69 76 65 72 73 | 20 4e 61 6d 65 0d 4c 45 | Drivers| Name.LE|
|00000a30| 41 20 20 20 20 20 09 49 | 4f 50 41 52 4d 53 2c 41 |A     .I|OPARMS,A|
|00000a40| 30 09 09 09 09 3b 47 65 | 74 20 74 68 65 20 50 61 |0....;Ge|t the Pa|
|00000a50| 72 61 6d 65 74 65 72 20 | 62 61 73 65 20 61 64 64 |rameter |base add|
|00000a60| 72 65 73 0d 4d 4f 56 45 | 2e 4c 20 20 09 41 31 2c |res.MOVE|.L  .A1,|
|00000a70| 69 6f 46 69 6c 65 4e 61 | 6d 65 28 41 30 29 20 20 |ioFileNa|me(A0)  |
|00000a80| 20 09 3b 53 74 6f 72 65 | 20 74 68 65 20 44 72 69 | .;Store| the Dri|
|00000a90| 76 65 72 73 20 4e 61 6d | 65 20 61 64 64 72 0d 43 |vers Nam|e addr.C|
|00000aa0| 4c 52 2e 42 20 20 09 69 | 6f 50 65 72 6d 73 73 6e |LR.B  .i|oPermssn|
|00000ab0| 28 41 30 29 20 20 20 20 | 09 09 3b 66 73 43 75 72 |(A0)    |..;fsCur|
|00000ac0| 50 65 72 6d 20 28 77 68 | 61 74 65 76 65 72 20 77 |Perm (wh|atever w|
|00000ad0| 65 20 67 6f 74 29 0d 5f | 4f 50 45 4e 0d 4c 45 41 |e got)._|OPEN.LEA|
|00000ae0| 20 20 20 20 20 09 49 4f | 50 41 52 4d 53 2c 41 30 |     .IO|PARMS,A0|
|00000af0| 20 09 09 09 09 3b 47 65 | 74 20 74 68 65 20 50 61 | ....;Ge|t the Pa|
|00000b00| 72 61 6d 65 74 65 72 20 | 62 61 73 65 20 61 64 64 |rameter |base add|
|00000b10| 72 65 73 73 0d 4d 4f 56 | 45 2e 57 09 69 6f 52 65 |ress.MOV|E.W.ioRe|
|00000b20| 73 75 6c 74 28 41 30 29 | 2c 44 30 20 20 20 20 20 |sult(A0)|,D0     |
|00000b30| 20 3b 43 68 65 63 6b 20 | 66 6f 72 20 61 6e 20 65 | ;Check |for an e|
|00000b40| 72 72 6f 72 0d 43 4d 50 | 2e 57 20 09 23 30 2c 44 |rror.CMP|.W .#0,D|
|00000b50| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|00000b60| 20 3b 69 73 20 72 65 73 | 75 6c 74 20 6f 6b 3f 0d | ;is res|ult ok?.|
|00000b70| 42 45 51 20 20 20 20 20 | 09 40 30 20 20 20 20 20 |BEQ     |.@0     |
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 59 |        |      ;Y|
|00000b90| 65 73 20 73 6b 69 70 20 | 74 68 65 20 65 72 72 6f |es skip |the erro|
|00000ba0| 72 20 62 65 6c 6c 0d 4d | 4f 56 45 2e 57 09 23 33 |r bell.M|OVE.W.#3|
|00000bb0| 30 2c 2d 28 53 50 29 20 | 20 20 20 20 20 20 20 20 |0,-(SP) |        |
|00000bc0| 20 20 20 3b 62 65 65 70 | 20 6c 65 6e 67 74 68 0d |   ;beep| length.|
|00000bd0| 5f 53 59 53 42 45 45 50 | 20 20 20 20 20 20 20 20 |_SYSBEEP|        |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 62 |        |      ;b|
|00000bf0| 65 65 70 20 74 6f 20 69 | 6e 64 69 63 61 74 65 20 |eep to i|ndicate |
|00000c00| 65 72 72 6f 72 0d 42 52 | 41 20 20 20 20 20 09 40 |error.BR|A     .@|
|00000c10| 34 0d 0d 40 30 0d 0d 3b | 2d 2d 2d 2d 2d 2d 20 52 |4..@0..;|------ R|
|00000c20| 45 53 45 54 20 54 48 45 | 20 50 52 49 4e 54 45 52 |ESET THE| PRINTER|
|00000c30| 20 54 4f 20 44 45 46 41 | 55 4c 54 53 20 2d 2d 2d | TO DEFA|ULTS ---|
|00000c40| 2d 2d 2d 2d 0d 0d 4c 45 | 41 20 20 20 20 20 09 49 |----..LE|A     .I|
|00000c50| 4f 50 41 52 4d 53 2c 41 | 30 20 20 20 20 20 20 20 |OPARMS,A|0       |
|00000c60| 20 20 20 20 20 20 09 3b | 47 65 74 20 74 68 65 20 |      .;|Get the |
|00000c70| 50 61 72 61 6d 65 74 65 | 72 20 62 61 73 65 20 61 |Paramete|r base a|
|00000c80| 64 64 72 0d 4d 4f 56 45 | 2e 57 09 23 69 50 72 44 |ddr.MOVE|.W.#iPrD|
|00000c90| 65 76 43 74 6c 2c 63 73 | 43 6f 64 65 28 41 30 29 |evCtl,cs|Code(A0)|
|00000ca0| 20 20 20 3b 53 65 74 20 | 75 70 20 61 20 63 6f 6e |   ;Set |up a con|
|00000cb0| 74 72 6f 6c 20 74 79 70 | 65 20 63 61 6c 6c 0d 4d |trol typ|e call.M|
|00000cc0| 4f 56 45 2e 4c 20 20 09 | 23 69 50 72 52 65 73 65 |OVE.L  .|#iPrRese|
|00000cd0| 74 2c 63 73 50 61 72 61 | 6d 2b 6c 50 61 72 61 6d |t,csPara|m+lParam|
|00000ce0| 31 28 41 30 29 20 20 20 | 3b 6f 6e 6c 79 20 31 20 |1(A0)   |;only 1 |
|00000cf0| 28 52 65 73 65 74 29 0d | 43 4c 52 2e 4c 20 20 20 |(Reset).|CLR.L   |
|00000d00| 09 63 73 50 61 72 61 6d | 2b 6c 50 61 72 61 6d 32 |.csParam|+lParam2|
|00000d10| 28 41 30 29 0d 43 4c 52 | 2e 4c 20 20 20 09 63 73 |(A0).CLR|.L   .cs|
|00000d20| 50 61 72 61 6d 2b 6c 50 | 61 72 61 6d 33 28 41 30 |Param+lP|aram3(A0|
|00000d30| 29 0d 5f 43 4f 4e 54 52 | 4f 4c 0d 4c 45 41 20 20 |)._CONTR|OL.LEA  |
|00000d40| 20 20 20 09 49 4f 50 41 | 52 4d 53 2c 41 30 20 09 |   .IOPA|RMS,A0 .|
|00000d50| 09 09 09 3b 47 65 74 20 | 74 68 65 20 50 61 72 61 |...;Get |the Para|
|00000d60| 6d 65 74 65 72 20 62 61 | 73 65 20 61 64 64 72 65 |meter ba|se addre|
|00000d70| 73 73 0d 4d 4f 56 45 2e | 57 09 69 6f 52 65 73 75 |ss.MOVE.|W.ioResu|
|00000d80| 6c 74 28 41 30 29 2c 44 | 30 20 09 09 3b 43 68 65 |lt(A0),D|0 ..;Che|
|00000d90| 63 6b 20 66 6f 72 20 61 | 6e 20 65 72 72 6f 72 0d |ck for a|n error.|
|00000da0| 43 4d 50 2e 57 20 20 20 | 09 23 30 2c 44 30 20 20 |CMP.W   |.#0,D0  |
|00000db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 09 3b 69 |        |     .;i|
|00000dc0| 73 20 72 65 73 75 6c 74 | 20 6f 6b 3f 0d 42 45 51 |s result| ok?.BEQ|
|00000dd0| 20 20 20 20 20 09 40 31 | 20 20 20 20 20 20 20 20 |     .@1|        |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 59 65 73 20 |        |   ;Yes |
|00000df0| 73 6b 69 70 20 74 68 65 | 20 65 72 72 6f 72 20 62 |skip the| error b|
|00000e00| 65 6c 6c 0d 4d 4f 56 45 | 2e 57 09 23 33 30 2c 2d |ell.MOVE|.W.#30,-|
|00000e10| 28 53 50 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |(SP)    |        |
|00000e20| 3b 62 65 65 70 20 6c 65 | 6e 67 74 68 0d 5f 53 59 |;beep le|ngth._SY|
|00000e30| 53 42 45 45 50 20 20 20 | 20 20 20 20 20 20 20 20 |SBEEP   |        |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 3b 62 65 65 70 |        |   ;beep|
|00000e50| 20 74 6f 20 69 6e 64 69 | 63 61 74 65 20 65 72 72 | to indi|cate err|
|00000e60| 6f 72 0d 42 52 41 20 20 | 20 20 20 09 40 34 0d 0d |or.BRA  |   .@4..|
|00000e70| 40 31 0d 0d 3b 2d 2d 2d | 2d 2d 2d 20 41 43 54 55 |@1..;---|--- ACTU|
|00000e80| 41 4c 4c 59 20 50 52 49 | 4e 54 20 54 48 45 20 57 |ALLY PRI|NT THE W|
|00000e90| 4f 52 44 20 48 45 4c 4c | 4f 20 2d 2d 2d 2d 2d 2d |ORD HELL|O ------|
|00000ea0| 2d 0d 0d 4c 45 41 09 09 | 54 45 58 54 5f 53 54 52 |-..LEA..|TEXT_STR|
|00000eb0| 49 4e 47 2c 41 31 09 09 | 09 09 3b 47 65 74 20 61 |ING,A1..|..;Get a|
|00000ec0| 64 64 72 65 73 73 20 6f | 66 20 73 74 72 69 6e 67 |ddress o|f string|
|00000ed0| 20 74 6f 20 70 72 0d 4c | 45 41 20 20 20 20 20 09 | to pr.L|EA     .|
|00000ee0| 49 4f 50 41 52 4d 53 2c | 41 30 20 09 09 09 09 09 |IOPARMS,|A0 .....|
|00000ef0| 3b 47 65 74 20 74 68 65 | 20 50 61 72 61 6d 65 74 |;Get the| Paramet|
|00000f00| 65 72 20 62 61 73 65 20 | 61 64 64 72 65 73 0d 4d |er base |addres.M|
|00000f10| 4f 56 45 2e 57 09 23 69 | 50 72 49 4f 43 74 6c 2c |OVE.W.#i|PrIOCtl,|
|00000f20| 63 73 43 6f 64 65 28 41 | 30 29 20 20 09 3b 53 65 |csCode(A|0)  .;Se|
|00000f30| 74 20 75 70 20 61 20 74 | 65 78 74 20 73 74 72 65 |t up a t|ext stre|
|00000f40| 61 6d 69 6e 67 20 63 61 | 6c 6c 0d 4d 4f 56 45 2e |aming ca|ll.MOVE.|
|00000f50| 4c 09 41 31 2c 63 73 50 | 61 72 61 6d 2b 6c 50 61 |L.A1,csP|aram+lPa|
|00000f60| 72 61 6d 31 28 41 30 29 | 20 20 3b 50 61 72 61 6d |ram1(A0)|  ;Param|
|00000f70| 65 74 65 72 20 6f 6e 65 | 20 69 73 20 61 20 09 70 |eter one| is a .p|
|00000f80| 6f 69 6e 74 65 72 20 74 | 6f 20 74 68 65 20 74 65 |ointer t|o the te|
|00000f90| 78 74 0d 4d 4f 56 45 2e | 4c 09 23 28 54 45 58 54 |xt.MOVE.|L.#(TEXT|
|00000fa0| 5f 53 54 52 49 4e 47 5f | 45 4e 44 2d 54 45 58 54 |_STRING_|END-TEXT|
|00000fb0| 5f 53 54 52 49 4e 47 29 | 2c 20 63 73 50 61 72 61 |_STRING)|, csPara|
|00000fc0| 6d 2b 6c 50 61 72 61 6d | 32 28 41 30 29 0d 09 09 |m+lParam|2(A0)...|
|00000fd0| 09 09 09 09 09 09 09 09 | 09 3b 50 61 72 61 6d 65 |........|.;Parame|
|00000fe0| 74 65 72 20 74 77 6f 20 | 69 73 20 74 68 65 20 6c |ter two |is the l|
|00000ff0| 65 6e 67 74 68 20 6f 66 | 20 74 68 65 20 74 65 78 |ength of| the tex|
|00001000| 74 0d 43 4c 52 2e 4c 09 | 09 63 73 50 61 72 61 6d |t.CLR.L.|.csParam|
|00001010| 2b 6c 50 61 72 61 6d 33 | 28 41 30 29 20 20 20 20 |+lParam3|(A0)    |
|00001020| 09 3b 4e 6f 20 74 68 69 | 72 64 20 50 61 72 61 6d |.;No thi|rd Param|
|00001030| 65 74 65 72 0d 5f 43 4f | 4e 54 52 4f 4c 0d 4c 45 |eter._CO|NTROL.LE|
|00001040| 41 20 20 20 20 20 09 49 | 4f 50 41 52 4d 53 2c 41 |A     .I|OPARMS,A|
|00001050| 30 20 20 20 20 20 20 20 | 20 20 09 09 3b 47 65 74 |0       |  ..;Get|
|00001060| 20 74 68 65 20 50 61 72 | 61 6d 65 74 65 72 20 62 | the Par|ameter b|
|00001070| 61 73 65 20 61 64 64 72 | 65 73 73 0d 4d 4f 56 45 |ase addr|ess.MOVE|
|00001080| 2e 57 09 69 6f 52 65 73 | 75 6c 74 28 41 30 29 2c |.W.ioRes|ult(A0),|
|00001090| 44 30 20 20 09 09 09 3b | 43 68 65 63 6b 20 66 6f |D0  ...;|Check fo|
|000010a0| 72 20 61 6e 20 65 72 72 | 6f 72 0d 43 4d 50 2e 57 |r an err|or.CMP.W|
|000010b0| 20 20 20 09 23 30 2c 44 | 30 20 20 20 20 20 20 20 |   .#0,D|0       |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 09 3b 69 73 20 |        |   .;is |
|000010d0| 72 65 73 75 6c 74 20 6f | 6b 3f 0d 42 45 51 20 20 |result o|k?.BEQ  |
|000010e0| 20 20 20 09 40 32 20 20 | 20 20 20 20 20 20 20 20 |   .@2  |        |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 09 3b 59 65 73 20 |        |  .;Yes |
|00001100| 73 6b 69 70 20 74 68 65 | 20 65 72 72 6f 72 20 62 |skip the| error b|
|00001110| 65 6c 6c 20 0d 4d 4f 56 | 45 2e 57 09 23 33 30 2c |ell .MOV|E.W.#30,|
|00001120| 2d 28 53 50 29 20 20 20 | 20 20 20 20 20 20 20 20 |-(SP)   |        |
|00001130| 20 20 20 09 3b 62 65 65 | 70 20 6c 65 6e 67 74 68 |   .;bee|p length|
|00001140| 0d 5f 53 59 53 42 45 45 | 50 20 20 20 20 20 20 20 |._SYSBEE|P       |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001160| 20 09 3b 62 65 65 70 20 | 74 6f 20 69 6e 64 69 63 | .;beep |to indic|
|00001170| 61 74 65 20 65 72 72 6f | 72 0d 42 52 41 20 20 20 |ate erro|r.BRA   |
|00001180| 20 20 40 34 0d 0d 40 32 | 0d 0d 3b 2d 2d 2d 2d 2d |  @4..@2|..;-----|
|00001190| 2d 20 50 52 49 4e 54 20 | 41 20 43 52 2b 4c 46 20 |- PRINT |A CR+LF |
|000011a0| 4a 55 53 54 20 46 4f 52 | 20 54 48 45 20 46 55 4e |JUST FOR| THE FUN|
|000011b0| 20 4f 46 20 49 54 20 2d | 2d 2d 2d 2d 2d 2d 2d 0d | OF IT -|-------.|
|000011c0| 0d 4c 45 41 20 09 09 49 | 4f 50 41 52 4d 53 2c 41 |.LEA ..I|OPARMS,A|
|000011d0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 09 3b 47 |0       |     .;G|
|000011e0| 65 74 20 74 68 65 20 50 | 61 72 61 6d 65 74 65 72 |et the P|arameter|
|000011f0| 20 62 61 73 65 20 61 64 | 64 72 65 73 0d 4d 4f 56 | base ad|dres.MOV|
|00001200| 45 2e 57 20 20 09 23 69 | 50 72 44 65 76 43 74 6c |E.W  .#i|PrDevCtl|
|00001210| 2c 63 73 43 6f 64 65 28 | 41 30 29 20 20 20 3b 53 |,csCode(|A0)   ;S|
|00001220| 65 74 20 75 70 20 61 20 | 63 6f 6e 74 72 6f 6c 20 |et up a |control |
|00001230| 74 79 70 65 20 63 61 6c | 6c 0d 4d 4f 56 45 2e 4c |type cal|l.MOVE.L|
|00001240| 20 20 09 23 69 50 72 4c | 69 6e 65 46 65 65 64 2c |  .#iPrL|ineFeed,|
|00001250| 63 73 50 61 72 61 6d 2b | 6c 50 61 72 61 6d 31 28 |csParam+|lParam1(|
|00001260| 41 30 29 20 3b 6f 6e 6c | 79 20 31 3f 20 70 61 72 |A0) ;onl|y 1? par|
|00001270| 61 6d 65 74 65 72 20 28 | 43 52 2b 4c 46 29 0d 43 |ameter (|CR+LF).C|
|00001280| 4c 52 2e 4c 20 20 20 09 | 63 73 50 61 72 61 6d 2b |LR.L   .|csParam+|
|00001290| 6c 50 61 72 61 6d 32 28 | 41 30 29 20 20 20 20 20 |lParam2(|A0)     |
|000012a0| 3b 50 61 72 61 6d 65 74 | 65 72 20 32 20 75 6e 64 |;Paramet|er 2 und|
|000012b0| 65 74 65 72 6d 69 6e 65 | 64 0d 43 4c 52 2e 4c 20 |etermine|d.CLR.L |
|000012c0| 20 09 63 73 50 61 72 61 | 6d 2b 6c 50 61 72 61 6d | .csPara|m+lParam|
|000012d0| 33 28 41 30 29 0d 5f 43 | 4f 4e 54 52 4f 4c 0d 4c |3(A0)._C|ONTROL.L|
|000012e0| 45 41 20 20 20 20 20 09 | 49 4f 50 41 52 4d 53 2c |EA     .|IOPARMS,|
|000012f0| 41 30 20 20 20 20 20 20 | 20 20 20 09 09 3b 47 65 |A0      |   ..;Ge|
|00001300| 74 20 74 68 65 20 50 61 | 72 61 6d 65 74 65 72 20 |t the Pa|rameter |
|00001310| 62 61 73 65 20 61 64 64 | 72 65 73 73 0d 4d 4f 56 |base add|ress.MOV|
|00001320| 45 2e 57 20 20 09 69 6f | 52 65 73 75 6c 74 28 41 |E.W  .io|Result(A|
|00001330| 30 29 2c 44 30 20 20 20 | 20 20 20 20 09 3b 43 68 |0),D0   |    .;Ch|
|00001340| 65 63 6b 20 66 6f 72 20 | 61 6e 20 65 72 72 6f 72 |eck for |an error|
|00001350| 0d 43 4d 50 2e 57 20 20 | 20 09 23 30 2c 44 30 20 |.CMP.W  | .#0,D0 |
|00001360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001370| 20 09 3b 69 73 20 72 65 | 73 75 6c 74 20 6f 6b 3f | .;is re|sult ok?|
|00001380| 0d 42 45 51 20 20 20 20 | 20 09 40 33 20 20 20 20 |.BEQ    | .@3    |
|00001390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013a0| 20 09 3b 59 65 73 20 73 | 6b 69 70 20 74 68 65 20 | .;Yes s|kip the |
|000013b0| 65 72 72 6f 72 20 62 65 | 6c 6c 0d 4d 4f 56 45 2e |error be|ll.MOVE.|
|000013c0| 57 20 20 09 23 33 30 2c | 2d 28 53 50 29 20 20 20 |W  .#30,|-(SP)   |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 09 3b 62 65 65 |        |   .;bee|
|000013e0| 70 20 6c 65 6e 67 74 68 | 0d 5f 53 59 53 42 45 45 |p length|._SYSBEE|
|000013f0| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |P       |        |
|00001400| 20 20 20 20 20 20 20 20 | 20 09 3b 62 65 65 70 20 |        | .;beep |
|00001410| 74 6f 20 69 6e 64 69 63 | 61 74 65 20 65 72 72 6f |to indic|ate erro|
|00001420| 72 0d 42 52 41 20 20 20 | 20 20 40 34 0d 0d 40 33 |r.BRA   |  @4..@3|
|00001430| 0d 0d 3b 2d 2d 2d 2d 20 | 45 4a 45 43 54 20 41 20 |..;---- |EJECT A |
|00001440| 50 41 47 45 20 53 4f 20 | 54 48 41 54 20 57 45 20 |PAGE SO |THAT WE |
|00001450| 43 41 4e 20 53 45 45 20 | 57 48 41 54 20 48 41 50 |CAN SEE |WHAT HAP|
|00001460| 50 45 4e 53 0d 0d 4c 45 | 41 20 20 20 20 20 09 49 |PENS..LE|A     .I|
|00001470| 4f 50 41 52 4d 53 2c 41 | 30 20 20 20 20 20 20 20 |OPARMS,A|0       |
|00001480| 20 20 20 09 09 3b 47 65 | 74 20 74 68 65 20 50 61 |   ..;Ge|t the Pa|
|00001490| 72 61 6d 65 74 65 72 20 | 62 61 73 65 20 61 64 64 |rameter |base add|
|000014a0| 72 65 73 73 0d 4d 4f 56 | 45 2e 57 20 20 09 23 69 |ress.MOV|E.W  .#i|
|000014b0| 50 72 44 65 76 43 74 6c | 2c 63 73 43 6f 64 65 28 |PrDevCtl|,csCode(|
|000014c0| 41 30 29 20 20 20 3b 53 | 65 74 20 75 70 20 61 20 |A0)   ;S|et up a |
|000014d0| 63 6f 6e 74 72 6f 6c 20 | 74 79 70 65 20 63 61 6c |control |type cal|
|000014e0| 6c 0d 4d 4f 56 45 2e 4c | 20 20 09 23 69 50 72 50 |l.MOVE.L|  .#iPrP|
|000014f0| 61 67 65 45 6e 64 2c 63 | 73 50 61 72 61 6d 2b 6c |ageEnd,c|sParam+l|
|00001500| 50 61 72 61 6d 31 28 41 | 30 29 20 3b 6f 6e 6c 79 |Param1(A|0) ;only|
|00001510| 20 31 20 70 61 72 61 6d | 65 74 65 72 20 28 65 6a | 1 param|eter (ej|
|00001520| 65 63 74 29 0d 43 4c 52 | 2e 4c 20 20 20 09 63 73 |ect).CLR|.L   .cs|
|00001530| 50 61 72 61 6d 2b 6c 50 | 61 72 61 6d 32 28 41 30 |Param+lP|aram2(A0|
|00001540| 29 0d 43 4c 52 2e 4c 20 | 20 20 09 63 73 50 61 72 |).CLR.L |  .csPar|
|00001550| 61 6d 2b 6c 50 61 72 61 | 6d 33 28 41 30 29 0d 5f |am+lPara|m3(A0)._|
|00001560| 43 4f 4e 54 52 4f 4c 0d | 4c 45 41 20 20 20 20 20 |CONTROL.|LEA     |
|00001570| 09 49 4f 50 41 52 4d 53 | 2c 41 30 20 20 20 20 20 |.IOPARMS|,A0     |
|00001580| 20 20 20 20 20 09 09 3b | 47 65 74 20 74 68 65 20 |     ..;|Get the |
|00001590| 50 61 72 61 6d 65 74 65 | 72 20 62 61 73 65 20 61 |Paramete|r base a|
|000015a0| 64 64 72 65 73 73 0d 4d | 4f 56 45 2e 57 20 20 09 |ddress.M|OVE.W  .|
|000015b0| 69 6f 52 65 73 75 6c 74 | 28 41 30 29 2c 44 30 20 |ioResult|(A0),D0 |
|000015c0| 20 20 20 20 20 20 20 3b | 43 68 65 63 6b 20 66 6f |       ;|Check fo|
|000015d0| 72 20 61 6e 20 65 72 72 | 6f 72 0d 43 4d 50 2e 57 |r an err|or.CMP.W|
|000015e0| 20 20 20 09 23 30 2c 44 | 30 20 20 20 20 20 20 20 |   .#0,D|0       |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 69 73 20 72 |        |   ;is r|
|00001600| 65 73 75 6c 74 20 6f 6b | 3f 0d 42 45 51 2e 53 20 |esult ok|?.BEQ.S |
|00001610| 20 20 09 40 34 20 20 20 | 20 20 20 20 20 20 20 20 |  .@4   |        |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 3b 59 65 73 20 73 |        |  ;Yes s|
|00001630| 6b 69 70 20 74 68 65 20 | 65 72 72 6f 72 20 62 65 |kip the |error be|
|00001640| 6c 6c 0d 4d 4f 56 45 2e | 57 20 20 09 23 33 30 2c |ll.MOVE.|W  .#30,|
|00001650| 2d 28 53 50 29 20 20 20 | 20 20 20 20 20 20 20 20 |-(SP)   |        |
|00001660| 20 20 20 3b 62 65 65 70 | 20 6c 65 6e 67 74 68 0d |   ;beep| length.|
|00001670| 5f 53 59 53 42 45 45 50 | 20 20 20 20 20 20 20 20 |_SYSBEEP|        |
|00001680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001690| 3b 62 65 65 70 20 74 6f | 20 69 6e 64 69 63 61 74 |;beep to| indicat|
|000016a0| 65 20 65 72 72 6f 72 0d | 40 34 0d 0d 52 54 53 0d |e error.|@4..RTS.|
|000016b0| 0d 20 3b 20 20 20 20 20 | 20 20 20 44 61 74 61 20 |. ;     |   Data |
|000016c0| 53 74 72 75 63 74 75 72 | 65 73 0d 0d 54 45 58 54 |Structur|es..TEXT|
|000016d0| 5f 53 54 52 49 4e 47 20 | 20 20 20 20 09 44 43 2e |_STRING |    .DC.|
|000016e0| 42 20 20 20 20 27 09 48 | 45 4c 4c 4f 27 0d 54 45 |B    '.H|ELLO'.TE|
|000016f0| 58 54 5f 53 54 52 49 4e | 47 5f 45 4e 44 0d 0d 2e |XT_STRIN|G_END...|
|00001700| 41 4c 49 47 4e 20 20 32 | 0d 49 4f 50 41 52 4d 53 |ALIGN  2|.IOPARMS|
|00001710| 20 20 20 20 20 20 20 20 | 20 09 44 43 42 2e 4c 20 |        | .DCB.L |
|00001720| 20 20 09 32 30 2c 30 0d | 0d 3b 20 2d 2d 2d 2d 2d |  .20,0.|.; -----|
|00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 20 |--------|-----   |
|00001740| 65 6e 64 20 6f 66 20 70 | 72 6f 67 72 61 6d 20 20 |end of p|rogram  |
|00001750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001760| 2d 2d 2d 2d 2d 2d 2d 0d | 0d 20 0d 0d 0d 0d 00 00 |-------.|. ......|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00001790| 77 a0 00 99 a0 00 97 a0 | 00 8d 22 00 91 00 fd 00 |w.......|..".....|
|000017a0| 0f 22 00 a0 00 fc 93 00 | a0 00 aa 61 00 64 00 89 |."......|...a.d..|
|000017b0| 0c 4d 44 53 50 52 49 4e | 54 2e 41 53 4d 4e 02 00 |.MDSPRIN|T.ASMN..|
|000017c0| 00 00 54 45 58 54 4d 41 | 43 41 01 00 00 0d 00 1e |..TEXTMA|CA......|
|000017d0| 00 00 54 45 58 54 4d 41 | 43 41 01 00 00 0d 00 1e |..TEXTMA|CA......|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 99 84 d5 63 00 00 | 16 ee 00 00 01 ea 9a 00 |.....c..|........|
|00001800| 08 ff f7 00 00 00 0f 00 | 00 a0 00 98 2b 05 0c 06 |........|....+...|
|00001810| 46 69 6e 69 73 68 a0 00 | 99 a0 00 97 a0 00 8d a0 |Finish..|........|
|00001820| 00 aa 61 00 be 00 d1 00 | d2 00 e5 00 f6 00 30 22 |..a.....|......0"|
|00001830| 00 c8 00 bc 16 00 a0 00 | ad a0 00 8c 34 00 b4 00 |........|....4...|
|00001840| d9 00 d9 01 2b 38 a1 00 | 96 00 06 06 00 00 00 02 |....+8..|........|
|00001850| 07 a1 00 9a 00 08 00 03 | 00 00 00 12 00 00 a0 00 |........|........|
|00001860| 98 28 00 c0 00 f7 07 43 | 68 61 6e 67 65 0d a0 00 |.(.....C|hange...|
|00001870| 99 a1 00 9a 00 08 ff f7 | 00 00 00 12 00 00 a0 00 |........|........|
|00001880| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 34 00 00 |.......M|onaco4..|
|00001890| 00 04 00 06 00 03 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000018a0| 00 16 00 00 00 d4 00 00 | cc 1c 00 98 00 00 00 1c |........|........|
|000018b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000018c0| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 00 e0 54 |........|.......T|
|000018d0| 03 ec 00 47 00 00 00 0e | 00 00 e0 24 46 4f 42 4a |...G....|...$FOBJ|
|000018e0| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|000018f0| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00001900| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00001910| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00001920| 00 00 01 46 4f 42 4a ff | ff ff ff 00 40 01 aa 00 |...FOBJ.|....@...|
|00001930| 40 01 ac 00 40 01 ae 00 | 40 01 b0 00 40 01 b2 00 |@...@...|@...@...|
|00001940| 40 01 b4 00 40 01 b6 00 | 40 01 b8 00 40 10 18 00 |@...@...|@...@...|
|00001950| 40 01 bc 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |@...@...|@...@...|
|00001960| 40 01 be 00 40 01 be 00 | 00 01 00 00 00 00 00 00 |@...@...|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+